Private Sub Command1_Click()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim st As ADODB.Stream
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=sqloledb;Data Source=YOURSERVER;Initial Catalog=YOURDB;User Id=YOURUSER;Password=YOURPASSWORD;"
    cn.Open
    Set rs = New ADODB.Recordset
    rs.Open "SELECT image from tabletest", cn, adOpenDynamic, adLockOptimistic
    Set st = New ADODB.Stream
    st.Type = adTypeBinary
    st.Open
    st.Write rs.Fields("image").Value
    st.SaveToFile ("c:\TEMPLATEFINAL.xls")
    st.Close
    rs.Close
    cn.Close
    Set rs = Nothing
    Set st = Nothing
    Set cn = Nothing
End Sub

'THIS BUTTON WILL SAVE IN THE DATABASE
Private Sub Command2_Click()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim st As ADODB.Stream
    Set cn = New ADODB.Connection
      cn.ConnectionString = "Provider=sqloledb;Data Source=YOURSERVER;Initial Catalog=YOURDB;User Id=YOURUSER;Password=YOURPASSWORD;"
    cn.Open
    Set rs = New ADODB.Recordset
    rs.Open "SELECT image from tabletest", cn, adOpenDynamic, adLockOptimistic
    Set st = New ADODB.Stream
    st.Type = adTypeBinary
    st.Open
    st.LoadFromFile ("c:\TEMPLATEFINAL.xls")
    rs.Fields("image").Value = st.Read
    rs.Update
    st.Close
    rs.Close
    cn.Close
    Set rs = Nothing
    Set st = Nothing
    Set cn = Nothing
End Sub 